home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
PhonepakV2_d1.adf
/
InstallGVPPatch
< prev
next >
Wrap
Text File
|
1993-05-18
|
2KB
|
59 lines
; PhonePak VFX/GVPPatch Installation Script
; $VER: GVPPatch Install 2.0 (18 May 1993)
;
; Written for use with Commodore's Installer.
(set phonepak "PhonePak_2.0:")
; ====================
; Make sure the user really wants to install this patch...
;
(message "This installation should only be performed if you are experiencing "
"data dropout when recording audio or receiving faxes with your "
"PhonePak, and you are using a GVP DMA hard disk controller (such "
"as a Series-II hard card, a Combo accelerator, or a G-Force "
"accelerator).\n\n"
"If you are not experiencing any data dropout, or are not "
"using one of the above mentioned hard disk controllers, it "
"is not necessary to install this patch.\n\n")
(if (askbool (prompt "Do you understand, and wish to proceed with the "
"installation of the GVPPatch program?")
(help "Please read the GVPPatch.Readme file supplied for more "
"information.")
(choices "Yes" "No"))
(
(copyfiles (source (tackon phonepak "GVPPatch"))
(dest "C:"))
; Set up the default dest so the user isn't confused.
(set @default-dest "C:")
; Ready an error message if we can't perform the modification
(onerror (message "Sorry, but either your startup-sequence was missing, "
"or it is too non-standard for the Installer program to "
"understand. You will have to make this modification "
"by hand.\n\n"
"To have the GVPPatch program run at startup, add the "
"following line to your S:User-Startup or "
"Startup-Sequence:\n\n"
"Run >NIL: GVPPatch -sPhonePak.device")
(exit))
;Try to modify the startup
(startup "PhonePak VFX/GVPPatch"
(prompt "Is it OK to modify your startup to run the GVPPatch "
"program when you boot?")
(help "For this program to be useful, it should be run in your "
"User-Startup or Startup-Sequence.\n\n"
@startup-help)
(command ("Run >NIL: GVPPatch -sPhonePak.device")))
)
(
(message "Aborting installation of the GVPPatch program.")
(exit (quiet))
)
)